www.gusucode.com > 智睿学校网站管理系统 V2.20 > 智睿学校网站管理系统 V2.20\code\Include\login.asp
<% If session("zhi_rui_s_MemName")="" then Response.write "<div class=""mainleft01"">" Response.write "<div class=""kuang10""></div>" Response.write "<form action="""&SitePath&"Userlogin.asp"" method=""post"" name=""loginForm"">" Response.write "<div class=""mainleft03"">用户登录</div><br />" Response.write "账 号:<input name=""LoginName"" class=""input1"" type=""text"" size=""17""><br />" Response.write "<div class=""kuang10""></div>" Response.write "密 码:<input name=""LoginPassword"" class=""input1"" type=""password"" size=""17"">" Response.write "<div class=""kuang10""></div>" Response.write "<div align=center><input type=""submit"" name=""Submit"" value=""登 录"" class=""but1"" />" Response.write "<input type=""button"" name=""button"" value=""注 册"" class=""but1"" onClick=window.location.href="""&SitePath&"UserReg.asp"" /><input type=""button"" name=""button"" value=""忘密"" class=""but1"" onClick=window.location.href="""&SitePath&"UserLost.asp"" /></div>" Response.write "</form><div style=""clear:both""></div></div>" else set rs4 = server.CreateObject ("adodb.recordset") sql="select * from zhi_rui_s_User where id="& session("zhi_rui_s_userID") &"" rs4.open sql,conn,1,1 mymoney=rs4("UserMoney") rs4.close set rs4=nothing Response.write "<div class=""mainleft01"">" Response.write "<div class=""kuang10""></div>" Response.write "<div class=""mainleft03"">用户信息</div><br style=""line-height:10px;""/>" Response.write " 欢迎您:<b>"&session("zhi_rui_s_MemName")&"</b><br />" Response.write " 积 分:[<b>"&session("UserMoney")&"</b>] 分<br />" Response.write " 当前IP:<b>"&session("LastLoginIP")&"</b><br />" if fabu=1 then Response.write " <a href="""&SitePath&"UserList.asp"" class=""green2"">我的作品</a>" Response.write " <a href="""&SitePath&"UserAdd.asp?Result=Add"" class=""red"">发表作品</a><br />" end if Response.write " <a href="""&SitePath&"UserInfo.asp"" class=""ju"">修改资料</a>" Response.write " <a href="""&SitePath&"UserLogin.asp?action=logout"" class=""hei"">退出登陆</a>" Response.write "<div style=""clear:both""></div></div>" rs4.close set rs4=nothing End if %>